home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
spooler.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
3KB
|
48 lines
10 PRINT"[147]";SPC(11);"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
20 PRINTSPC(11);"[194]PRINTER BUFFER[194]"
30 PRINTSPC(11);"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
40 PRINT"";SPC(16);"LOADING"
50 CL=PEEK(53280):LN=1000:AD=49152
60 READLN$:IFLN$="Z"THEN180
70 CK=0:FORI=1TOLEN(LN$)STEP2
80 A=ASC(MID$(LN$,I,1))-48:IFA>9THENA=A-7
90 A=A*16:B=ASC(MID$(LN$,I+1,1))-48:IFB>9THENB=B-7
100 A=A+B:CK=CK+A:IFCK>255THENCK=CK-256
110 POKE53280,A:POKEAD,A:AD=AD+1
120 NEXTI:READA:IFA=CKTHEN140
130 PRINT:PRINT"CHECKSUM ERROR IN";LN:END
140 LN=LN+10:GOTO60
180 POKE53280,CL:PRINT" ENTER THE DELAY COUNTER (1-255)";:INPUTCT
190 IFCT<1ORCT>255THENPRINT"[145][145][145]";:GOTO180
200 POKE49377,CT:PRINT"";SPC(8);"PRINTER DEVICE NUMBER"
205 PRINTSPC(8)"(4, 5 OR 6 PLOTTER)";:INPUTDV
207 IFDV<4ORDV>6THENPRINT"[145][145][145][145]";:GOTO200
210 POKE49352,DV:POKE49528,DV
220 PRINT"";SPC(9);"SYS 49152 - BUFFER ON"
230 PRINTSPC(9);"SYS 49155 - BUFFER OFF"
240 PRINTSPC(9);"SYS 49158 - CLEAR BUFFER"
250 END
1000 DATA 4C36C04C24C078A9008D25C18D87C18D6BC18D6EC1A9FF8D6CC1A9, 91
1010 DATA E08D26C18D88C1586078A9318D1403A9EA8D150358A9018D73C160, 51
1020 DATA AD26038D2EC18D7DC1AD27038D2FC18D7EC1A9748D2603A9C18D27, 46
1030 DATA 03AD30038DC2C1AD31038DC3C1A9BE8D3003A9C18D3103AD32038D, 166
1040 DATA C8C1AD33038DC9C1A9C48D3203A9C18D3303AD2C038DB6C1AD2D03, 156
1050 DATA 8DB7C1A9B58D2C03A9C18D2D03AD20038D30C28D18C1AD21038D31, 138
1060 DATA C28D19C1A9DE8D2003A9C18D2103A9BA8D01C0A9C08D02C078A9DD, 226
1070 DATA 8D1403A9C08D1503A90EA206A0FF20BAFFA90020BDFF20C0FF58A9, 238
1080 DATA 008D73C160AD6FC1C90AD01AA9008D6FC1AD26C1CD88C1D013AD25, 128
1090 DATA C1CD87C1D00BAD6EC1D006EE6FC14C31EAA59AC903D0F4A0318C14, 40
1100 DATA 03A0EA8C150358A20E20000078A5018D6DC129F88501AD00E0AC6D, 127
1110 DATA C184015820000020CCFFEE6BC1D003EE6CC1AD6CC1C900D005A9E0, 178
1120 DATA 8D6CC1EE25C1D00FEE26C1AD26C1C900D005A9E08D26C178A0DD8C, 242
1130 DATA 1403A0C08C1503A0004CFEC000FF0000000000000048A59AC906F0, 10
1140 DATA 04684C0000AD73C1D0F778688D00E0EE87C1D003EE88C1AD88C1CD, 176
1150 DATA 6CC1D00DAD87C1CD6BC1D005A9018D6EC1AD88C1C900D005A9E08D, 221
1160 DATA 88C1185860202FF30820BAC0286020CDC14C000020CDC12000004C, 153
1170 DATA B5C1084878A9318D1403A9EA8D150358682860780848AD6EC1F039, 9
1180 DATA 98488A48ADE1C08D71C1A9018DE1C0A9008D6FC158A9068D72C1A0, 100
1190 DATA 00A200CAD0FD88D0FACE72C1D0F5A9008D6EC178AD71C18DE1C068, 163
1200 DATA AA68A8A9318D1403A9EA8D15038E70C1682858200000AD73C1D010, 248
1210 DATA 780848A9DD8D1403A9C08D150368285860, 72
1220 DATA "Z" : REM - END OF DATA